home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01502_ÉnÉìÉhÉâäeîN01.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  12.0 KB  |  252 lines
  1. global popmsw01, syearstr, nminipage, npopon, lmaxpagelist
  2.  
  3. on mminiphotset
  4.   mpstypez(11, 14, 0)
  5.   if (280 <= the mouseV) and (the mouseV <= 319) then
  6.     mpstypez(12, 14, 0)
  7.     mminiphotset01()
  8.     mcapsset(11)
  9.   else
  10.     if (320 <= the mouseV) and (the mouseV <= 359) then
  11.       mpstypez(11, 11, 0)
  12.       mpstypez(13, 14, 0)
  13.       mminiphotset02()
  14.       mcapsset(12)
  15.     else
  16.       if (360 <= the mouseV) and (the mouseV <= 399) then
  17.         mpstypez(11, 12, 0)
  18.         mpstypez(14, 14, 0)
  19.         mminiphotset03()
  20.         mcapsset(13)
  21.       else
  22.         if (400 <= the mouseV) and (the mouseV <= 439) then
  23.           mpstypez(11, 13, 0)
  24.           mminiphotset04()
  25.           mcapsset(14)
  26.         else
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.  
  33. on mminiphotset01
  34.   if (0 <= the mouseH) and (the mouseH <= 25) then
  35.     mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "01S" & nminipage), 12, 298)
  36.   else
  37.     if (26 <= the mouseH) and (the mouseH <= 58) then
  38.       mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "02S" & nminipage), 42, 298)
  39.     else
  40.       if (59 <= the mouseH) and (the mouseH <= 124) then
  41.         mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "03S" & nminipage), 91, 298)
  42.       else
  43.         if (125 <= the mouseH) and (the mouseH <= 164) then
  44.           mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "04S" & nminipage), 144, 298)
  45.         else
  46.           if (165 <= the mouseH) and (the mouseH <= 231) then
  47.             mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "05S" & nminipage), 198, 298)
  48.           else
  49.             if (232 <= the mouseH) and (the mouseH <= 265) then
  50.               mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "06S" & nminipage), 248, 298)
  51.             else
  52.               if (266 <= the mouseH) and (the mouseH <= 319) then
  53.                 mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "07S" & nminipage), 292, 298)
  54.               else
  55.                 if (320 <= the mouseH) and (the mouseH <= 359) then
  56.                   mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "08S" & nminipage), 339, 298)
  57.                 else
  58.                   if (360 <= the mouseH) and (the mouseH <= 416) then
  59.                     mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "09S" & nminipage), 388, 298)
  60.                   else
  61.                     if (417 <= the mouseH) and (the mouseH <= 446) then
  62.                       mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "10S" & nminipage), 431, 298)
  63.                     else
  64.                       if (447 <= the mouseH) and (the mouseH <= 482) then
  65.                         mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "11S" & nminipage), 464, 298)
  66.                       else
  67.                         if (483 <= the mouseH) and (the mouseH <= 521) then
  68.                           mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "12S" & nminipage), 502, 318)
  69.                         else
  70.                           if (522 <= the mouseH) and (the mouseH <= 559) then
  71.                             mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "13S" & nminipage), 540, 298)
  72.                           else
  73.                             if (560 <= the mouseH) and (the mouseH <= 640) then
  74.                               mspriteset(11, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "14S" & nminipage), 600, 298)
  75.                             else
  76.                             end if
  77.                           end if
  78.                         end if
  79.                       end if
  80.                     end if
  81.                   end if
  82.                 end if
  83.               end if
  84.             end if
  85.           end if
  86.         end if
  87.       end if
  88.     end if
  89.   end if
  90. end
  91.  
  92. on mminiphotset02
  93.   if (0 <= the mouseH) and (the mouseH <= 58) then
  94.     mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "15S" & nminipage), 29, 338)
  95.   else
  96.     if (59 <= the mouseH) and (the mouseH <= 96) then
  97.       mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "16S" & nminipage), 77, 338)
  98.     else
  99.       if (97 <= the mouseH) and (the mouseH <= 124) then
  100.         mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "17S" & nminipage), 110, 338)
  101.       else
  102.         if (125 <= the mouseH) and (the mouseH <= 203) then
  103.           mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "18S" & nminipage), 164, 338)
  104.         else
  105.           if (204 <= the mouseH) and (the mouseH <= 231) then
  106.             mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "19S" & nminipage), 217, 338)
  107.           else
  108.             if (232 <= the mouseH) and (the mouseH <= 279) then
  109.               mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "20S" & nminipage), 255, 338)
  110.             else
  111.               if (280 <= the mouseH) and (the mouseH <= 319) then
  112.                 mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "21S" & nminipage), 299, 338)
  113.               else
  114.                 if (320 <= the mouseH) and (the mouseH <= 359) then
  115.                   mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "22S" & nminipage), 339, 358)
  116.                 else
  117.                   if (360 <= the mouseH) and (the mouseH <= 430) then
  118.                     mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "23S" & nminipage), 395, 338)
  119.                   else
  120.                     if (431 <= the mouseH) and (the mouseH <= 482) then
  121.                       mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "24S" & nminipage), 456, 338)
  122.                     else
  123.                       if (483 <= the mouseH) and (the mouseH <= 521) then
  124.                         mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "12S" & nminipage), 502, 318)
  125.                       else
  126.                         if (522 <= the mouseH) and (the mouseH <= 574) then
  127.                           mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "25S" & nminipage), 548, 338)
  128.                         else
  129.                           if (575 <= the mouseH) and (the mouseH <= 614) then
  130.                             mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "26S" & nminipage), 594, 338)
  131.                           else
  132.                             if (615 <= the mouseH) and (the mouseH <= 640) then
  133.                               mspriteset(12, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "27S" & nminipage), 627, 338)
  134.                             else
  135.                             end if
  136.                           end if
  137.                         end if
  138.                       end if
  139.                     end if
  140.                   end if
  141.                 end if
  142.               end if
  143.             end if
  144.           end if
  145.         end if
  146.       end if
  147.     end if
  148.   end if
  149. end
  150.  
  151. on mminiphotset03
  152.   if (0 <= the mouseH) and (the mouseH <= 38) then
  153.     mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "28S" & nminipage), 19, 378)
  154.   else
  155.     if (39 <= the mouseH) and (the mouseH <= 96) then
  156.       mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "29S" & nminipage), 67, 378)
  157.     else
  158.       if (97 <= the mouseH) and (the mouseH <= 164) then
  159.         mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "30S" & nminipage), 130, 378)
  160.       else
  161.         if (165 <= the mouseH) and (the mouseH <= 203) then
  162.           mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "31S" & nminipage), 184, 398)
  163.         else
  164.           if (204 <= the mouseH) and (the mouseH <= 243) then
  165.             mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "32S" & nminipage), 223, 378)
  166.           else
  167.             if (244 <= the mouseH) and (the mouseH <= 319) then
  168.               mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "33S" & nminipage), 281, 378)
  169.             else
  170.               if (320 <= the mouseH) and (the mouseH <= 359) then
  171.                 mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "22S" & nminipage), 339, 358)
  172.               else
  173.                 if (360 <= the mouseH) and (the mouseH <= 417) then
  174.                   mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "34S" & nminipage), 388, 378)
  175.                 else
  176.                   if (418 <= the mouseH) and (the mouseH <= 446) then
  177.                     mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "35S" & nminipage), 432, 378)
  178.                   else
  179.                     if (447 <= the mouseH) and (the mouseH <= 521) then
  180.                       mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "36S" & nminipage), 484, 378)
  181.                     else
  182.                       if (522 <= the mouseH) and (the mouseH <= 559) then
  183.                         mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "37S" & nminipage), 540, 378)
  184.                       else
  185.                         if (560 <= the mouseH) and (the mouseH <= 640) then
  186.                           mspriteset(13, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "38S" & nminipage), 600, 378)
  187.                         else
  188.                         end if
  189.                       end if
  190.                     end if
  191.                   end if
  192.                 end if
  193.               end if
  194.             end if
  195.           end if
  196.         end if
  197.       end if
  198.     end if
  199.   end if
  200. end
  201.  
  202. on mminiphotset04
  203.   if (0 <= the mouseH) and (the mouseH <= 24) then
  204.     mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "39S" & nminipage), 12, 418)
  205.   else
  206.     if (25 <= the mouseH) and (the mouseH <= 124) then
  207.       mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "40S" & nminipage), 74, 418)
  208.     else
  209.       if (125 <= the mouseH) and (the mouseH <= 164) then
  210.         mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "41S" & nminipage), 144, 418)
  211.       else
  212.         if (165 <= the mouseH) and (the mouseH <= 203) then
  213.           mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "31S" & nminipage), 184, 398)
  214.         else
  215.           if (204 <= the mouseH) and (the mouseH <= 278) then
  216.             mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "42S" & nminipage), 241, 418)
  217.           else
  218.             if (279 <= the mouseH) and (the mouseH <= 319) then
  219.               mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "43S" & nminipage), 299, 418)
  220.             else
  221.               if (320 <= the mouseH) and (the mouseH <= 377) then
  222.                 mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "44S" & nminipage), 348, 418)
  223.               else
  224.                 if (378 <= the mouseH) and (the mouseH <= 417) then
  225.                   mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "45S" & nminipage), 397, 418)
  226.                 else
  227.                   if (418 <= the mouseH) and (the mouseH <= 490) then
  228.                     mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "46S" & nminipage), 454, 418)
  229.                   else
  230.                     if (491 <= the mouseH) and (the mouseH <= 551) then
  231.                       mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "47S" & nminipage), 521, 418)
  232.                     else
  233.                       if (552 <= the mouseH) and (the mouseH <= 592) then
  234.                         mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "48S" & nminipage), 572, 418)
  235.                       else
  236.                         if (593 <= the mouseH) and (the mouseH <= 640) then
  237.                           mspriteset(14, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & "49S" & nminipage), 616, 418)
  238.                         else
  239.                         end if
  240.                       end if
  241.                     end if
  242.                   end if
  243.                 end if
  244.               end if
  245.             end if
  246.           end if
  247.         end if
  248.       end if
  249.     end if
  250.   end if
  251. end
  252.